(ns MainFunction
  (:use WebPageDownloader))

;;(def *base-market-prospekt-url* "http://www.belex.rs/trzista_i_hartije/hartije/akcije/sve")

;;(def *base-company-prospekt* (str "http://www.belex.rs/trgovanje/prospekt/" (get-company-symbol company) "/show"))


(defn -main 
  [& args]
  (do
    (print (flatten (print-date "http://www.belex.rs/trgovanje/prospekt/ENHL/show")))
    (print "\n")
    (calculate-ratio_main_profit_ratio "http://www.belex.rs/trgovanje/prospekt/ENHL/show")
    (print "\n")
    (calculate-ratio_aditionalSales_ratio "http://www.belex.rs/trgovanje/prospekt/ENHL/show")
    (print "\n")
    (calculate-ratio_liquidityRatio_current "http://www.belex.rs/trgovanje/prospekt/ENHL/show")
    (print "\n")
    (calculate-ratio_liquidityRatio_fast "http://www.belex.rs/trgovanje/prospekt/ENHL/show")
    ))
